unit u;

interface
uses Windows;
Procedure Sound(q,w:word);
Procedure Delay(w: Word);
implementation
Procedure Sound(q,w:word);
begin
 Beep(q,w)
end;
Procedure Delay(w: Word);
begin
  Sleep(w);
end;


end.
 